home *** CD-ROM | disk | FTP | other *** search
/ OpenGL Superbible (2nd Edition) / OpenGL SuperBible e2.iso / tools / GLUT-3.7 / PROGS / FORTRAN / FBITFONT.F < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.8 KB  |  71 lines
  1.  
  2. C  Copyright (c) Mark J. Kilgard, 1994.
  3.  
  4. C  This program is freely distributable without licensing fees
  5. C  and is provided without guarantee or warrantee expressed or
  6. C  implied.  This program is -not- in the public domain.
  7.  
  8. C  GLUT Fortran example demonstrating use of bitmap fonts.
  9.  
  10.     subroutine output(x,y,s)
  11.     real x,y
  12.     character s*(*)
  13.     character c
  14. #include "GL/fgl.h"
  15. #include "GL/fglut.h"
  16.  
  17. C  XXX Stroke and font names must be explicitly declared as
  18. C  external instead of relying on "GL/fglut.h" because
  19. C  the IRIX Fortran compiler does not know to only
  20. C  link in used external data symbols.
  21.     external GLUT_BITMAP_TIMES_ROMAN_24
  22.  
  23.     call fglrasterpos2f(x,y)
  24.     lenc = len(s)
  25.     do 10, i=1,lenc
  26.       c = s(i:i)
  27.       call glutbitmapcharacter(GLUT_BITMAP_TIMES_ROMAN_24,
  28.      2      ichar(c))
  29. 10    continue
  30.     end
  31.  
  32.     subroutine display
  33. #include "GL/fgl.h"
  34. #include "GL/fglut.h"
  35.     call fglclear(GL_COLOR_BUFFER_BIT)
  36.     call output(0.0,24.0,
  37.      2    'This is written in a GLUT bitmap font.')
  38.     call output(100.0,100.0,'ABCDEFGabcdefg')
  39.     call output(50.0,145.0,
  40.      2    '(positioned in pixels with upper-left origin)')
  41.     end
  42.  
  43.     subroutine reshape(w,h)
  44.     integer w, h
  45. #include "GL/fgl.h"
  46. #include "GL/fglu.h"
  47.     call fglviewport(0, 0, w, h)
  48.     call fglmatrixmode(GL_PROJECTION)
  49.     call fglloadidentity
  50.     call fgluortho2d(dble(0.0), dble(w), dble(0.0), dble(h))
  51.     call fglscalef(1.0, -1.0, 1.0)
  52.     call fgltranslatef(real(0.0), real(-h), real(0.0))
  53.     call fglmatrixmode(GL_MODELVIEW)
  54.     end
  55.  
  56.     program main
  57. #include "GL/fglut.h"
  58.     external display
  59.     external reshape
  60.     integer win
  61.     call glutinitdisplaymode(GLUT_RGB + GLUT_SINGLE)
  62.     call glutinitwindowsize(500, 150)
  63.     call glutinit
  64.     win = glutcreatewindow('Fortran GLUT bitmap A')
  65.     call fglclearcolor(0.0, 0.0, 0.0, 1.0)
  66.     call glutdisplayfunc(display)
  67.     call glutreshapefunc(reshape)
  68.     call glutmainloop
  69.     end
  70.  
  71.